home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 801_900 / DISK0893 / DISK0893.ZIP / LISTER.BAS < prev    next >
BASIC Source File  |  1987-09-24  |  626b  |  29 lines
  1. 100 ' list asm
  2. 102 CLS:PRINT "Printer Not Ready"
  3. 105 LPRINT CHR$(27);CHR$(66);CHR$(2);:WIDTH "LPT1:",130
  4. 110 CLS:INPUT "File Name";I$
  5. 120 OPEN I$ FOR INPUT AS #1
  6. 125 LIN=0
  7. 126 ON ERROR GOTO 400
  8. 129 '
  9. 130 LINE INPUT #1,I$
  10. 135 IF MID$(I$,1,4)=";off" THEN GOSUB 300
  11. 140 IF MID$(I$,1,5)=";page" THEN LPRINT CHR$(12);:GOSUB 200
  12. 150 LPRINT TAB(12);I$
  13. 155 LIN=LIN+1
  14. 160 GOTO 130
  15. 198 '
  16. 199 '
  17. 200 LINE INPUT #1,I$:IF I$=""THEN 200
  18. 205 IF I$<>";off" THEN RETURN
  19. 206 GOSUB 300
  20. 210 RETURN
  21. 298 '
  22. 299 '
  23. 300 LINE INPUT #1,I$:IF MID$(I$,1,3)<>";on" THEN 300
  24. 301 LINE INPUT #1,I$
  25. 310 RETURN
  26. 398 '
  27. 399 '
  28. 400 SYSTEM
  29.